home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / Config / OBERON.CONFIG < prev    next >
Encoding:
Text File  |  1994-12-29  |  11.2 KB  |  800 lines

  1. /* $VER: OBERON.CONFIG 3.848 */
  2. VERSIONCHECK 31090 "OBERON.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.  
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   M_QUIT
  23.   ;
  24.  
  25.  
  26. /* lokale Variablen */
  27.  
  28. SETVAR "_OPTIMIZE" TRUE
  29. SETVAR "_FRPATTERN" "~(#?(.info|.bak|.modE))"
  30. SETVAR "_AUTOINDENT" 5
  31. SETVAR "_AUTOFOLD" TRUE
  32. SETVAR "_FOLDSTART" "(*S*)"
  33. SETVAR "_FOLDEND" "(*E*)"
  34.  
  35.  
  36. /* Tastaturbelegung */
  37.  
  38. KEY "control 1"
  39.   GETNUMBER "Speicher Makro :" 1
  40.   MACROREC _RN
  41.   ;
  42.  
  43. KEY "control 2"
  44.   MACROSTOP
  45.   ;
  46.  
  47. KEY "control 3"
  48.   GETNUMBER "Spiele Makro :" 1
  49.   MACROPLAY _RN 1
  50.   ;
  51.  
  52. KEY "control 4"
  53.   GETNUMBER "Führe Makro aus" 1
  54.   SETVAR "_Reg1" _RN
  55.   GETNUMBER "Führe n mal aus" 1
  56.   MACROPLAY _REG1 _RN
  57.   ;
  58.  
  59. KEY ")"
  60.   WRITETEXT ")"
  61.   CURSORLEFT 0
  62.   MATCHBRACKET
  63.   DELAY 10
  64.   MATCHBRACKET
  65.   CURSORRIGHT 0
  66.   ;
  67.  
  68. KEY "numpad shift 1"
  69.   DOREXX "OberonError.wrx LIST" "" {@ASYNC}
  70.   ;
  71.  
  72. KEY "numpad shift 4"
  73.   DOREXX "OberonError.wrx PREV" "" {@ASYNC}
  74.   ;
  75.  
  76. KEY "numpad shift 5"
  77.   DOREXX "OberonError.wrx CURRENT" "" {@ASYNC}
  78.   ;
  79.  
  80. KEY "numpad shift 6"
  81.   DOREXX "OberonError.wrx NEXT" "" {@ASYNC}
  82.   ;
  83.  
  84. KEY "control >"
  85.   GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  86.   BLOCKRIGHT _RN
  87.   ;
  88.  
  89. KEY "control <"
  90.   GETNUMBER "Bewege Block x Spalten\nnach links :" 1
  91.   BLOCKLEFT _RN
  92.   ;
  93.  
  94. KEY "alt y"
  95.   UNDELLINE
  96.   ;
  97.  
  98. KEY "control y"
  99.   DELETELINE
  100.   ;
  101.  
  102. KEY "control x"
  103.   GETNUMBER "Block ausschneiden in Buffer :" 1
  104.   COPYBLOCK _RN
  105.   DELETEBLOCK
  106.   ;
  107.  
  108. KEY "control c"
  109.   GETNUMBER "Kopiere Block in Buffer :" 1
  110.   COPYBLOCK _RN
  111.   SETTITLE "Block kopiert." 0
  112.   ;
  113.  
  114. KEY "control v"
  115.   GETNUMBER "Einfügen aus Buffer :" 1
  116.   INSERTBLOCK _RN
  117.   ;
  118.  
  119. KEY "numpad shift 7"
  120.   DOREXX "OberonError.wrx FIRST" "" {@ASYNC}
  121.   ;
  122.  
  123. KEY "backspace"
  124.   BACKSPACE 0
  125.   ;
  126.  
  127. KEY "shift tab"
  128.   BACKTAB
  129.   ;
  130.  
  131. KEY "tab"
  132.   TAB 0
  133.   ;
  134.  
  135. KEY "return"
  136.   RETURN
  137.   ;
  138.  
  139. KEY "shift delete"
  140.   DELETETOEOL
  141.   ;
  142.  
  143. KEY "delete"
  144.   DELETE
  145.   ;
  146.  
  147. KEY "shift up"
  148.   PAGEUP 90
  149.   ;
  150.  
  151. KEY "up"
  152.   CURSORUP 0
  153.   ;
  154.  
  155. KEY "alt up"
  156.   GOTO _XPOS 1
  157.   ;
  158.  
  159. KEY "shift down"
  160.   PAGEDOWN 90
  161.   ;
  162.  
  163. KEY "down"
  164.   CURSORDOWN 0
  165.   ;
  166.  
  167. KEY "alt down"
  168.   GOTO _XPOS _LENGTH
  169.   ;
  170.  
  171. KEY "shift right"
  172.   GOTO @EOL @EOL
  173.   ;
  174.  
  175. KEY "right"
  176.   CURSORRIGHT 0
  177.   ;
  178.  
  179. KEY "alt right"
  180.   NEXTWORD
  181.   ;
  182.  
  183. KEY "shift left"
  184.   GOTO @SOL @SOL
  185.   ;
  186.  
  187. KEY "left"
  188.   CURSORLEFT 0
  189.   ;
  190.  
  191. KEY "alt left"
  192.   LASTWORD
  193.   ;
  194.  
  195. KEY "shift f1"
  196.   SETTEXTMARK 0
  197.   ;
  198.  
  199. KEY "f1"
  200.   GOTEXTMARK 0
  201.   ;
  202.  
  203. KEY "shift f2"
  204.   SETTEXTMARK 1
  205.   ;
  206.  
  207. KEY "f2"
  208.   GOTEXTMARK 1
  209.   ;
  210.  
  211. KEY "shift f3"
  212.   SETTEXTMARK HIGHER
  213.   ;
  214.  
  215. KEY "f3"
  216.   GOTEXTMARK HIGHER
  217.   ;
  218.  
  219. KEY "shift f4"
  220.   SETTEXTMARK 3
  221.   ;
  222.  
  223. KEY "f4"
  224.   GOTEXTMARK 3
  225.   ;
  226.  
  227. KEY "shift f5"
  228.   SETTEXTMARK 4
  229.   ;
  230.  
  231. KEY "f5"
  232.   GOTEXTMARK 4
  233.   ;
  234.  
  235. KEY "shift f6"
  236.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  237.   KEY "f6"
  238.     WRITETEXT _RS;
  239.   ;
  240.  
  241. KEY "shift f7"
  242.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  243.   KEY "f7"
  244.     WRITETEXT _RS;
  245.   ;
  246.  
  247. KEY "shift f8"
  248.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  249.   KEY "f8"
  250.     WRITETEXT _RS;
  251.   ;
  252.  
  253. KEY "shift f9"
  254.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  255.   KEY "f9"
  256.     WRITETEXT _RS;
  257.   ;
  258.  
  259. KEY "shift f10"
  260.   GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  261.   KEY "f10"
  262.     WRITETEXT _RS;
  263.   ;
  264.  
  265. KEY "}"
  266.   WRITETEXT ")"
  267.   CURSORLEFT 0
  268.   MATCHBRACKET
  269.   DELAY 10
  270.   MATCHBRACKET
  271.   CURSORRIGHT 0
  272.   ;
  273.  
  274. KEY "rawmouse lbutton mouse_leftpress"
  275.   GOTOMOUSE
  276.   ;
  277.  
  278. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  279.   IF {@CLEARRN}
  280.     GOTOMOUSE {@SAMEPOS};
  281.     SETMARK;
  282.     GOTOMOUSE ;
  283.   ;
  284.  
  285. DOUBLEKEY "rawmouse alt lbutton mouse_leftpress" "rawmouse alt lbutton mouse_leftpress"
  286.   UNMARK
  287.   GOTOMOUSE
  288.   GOTO @SOL @SOL {@SILENT}
  289.   SETMARK
  290.   GOTO @EOL @EOL
  291.   SETMARK
  292.   GOTOMOUSE
  293.   ;
  294.  
  295. DOUBLEKEY "rawmouse shift lbutton mouse_leftpress" "rawmouse shift lbutton mouse_leftpress"
  296.   UNMARK
  297.   GOTOMOUSE
  298.   GOTO @SOW @SOW {@SILENT}
  299.   SETMARK
  300.   GOTO @EOW @EOW
  301.   SETMARK
  302.   GOTOMOUSE
  303.   ;
  304.  
  305. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  306.   PANNEL
  307.   ;
  308.  
  309. KEY "rawmouse rbutton lbutton mouse_rightpress"
  310.   UNMARK
  311.   ;
  312.  
  313.  
  314. /* Menues */
  315.  
  316. MENU "Projekt"
  317.  
  318. ITEM "Öffne..." "O"
  319.   M_OPEN
  320.   IF {@CLEARRN}
  321.     EXISTS "$_FileName$E";
  322.     MESSAGE "Code enthält Fehler !" ;
  323.     NOP;
  324.   ;
  325.  
  326. ITEM "Alten File neu laden" "alt r"
  327.   IF
  328.     COMPARE 0 _CHANGED;
  329.     NOP;
  330.     ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
  331.     BREAK 0 _RN 1 ;
  332.   OPEN _FILENAME
  333.   IF {@CLEARRN}
  334.     EXISTS "$_FileName$E";
  335.     MESSAGE "Code enthält Fehler !" ;
  336.     NOP;
  337.   ;
  338.  
  339. ITEMBAR
  340.  
  341. ITEM "Setze/lösche..." ""
  342.   NOP
  343.   ;
  344.  
  345. SUB "Text unverändert" ""
  346.   SETVAR "_changed" 0
  347.   ;
  348.  
  349. ITEMBAR
  350.  
  351. ITEM "Neu" "alt n"
  352.   M_NEW
  353.   ;
  354.  
  355. ITEMBAR
  356.  
  357. ITEM "Umbenennen..." "R"
  358.   GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  359.   SETVAR "_FileName" _RS
  360.   SETVAR "_Path" _RS
  361.   ;
  362.  
  363. ITEM "Speichern" "S"
  364.   SAVE _FILENAME
  365.   ;
  366.  
  367. ITEM "Speichern als..." "A"
  368.   GETFILE "" "" {@SAVE}
  369.   SETVAR "_FileName" _PATH
  370.   SAVE _FILENAME
  371.   ;
  372.  
  373. ITEM "Speichern & neu öffnen..." ""
  374.   SAVE _FILENAME
  375.   GETFILE "" ""
  376.   OPEN _PATH
  377.   ;
  378.  
  379. ITEM "Text ausdrucken" "*"
  380.   SAVE "PRT:"
  381.   ;
  382.  
  383. ITEMBAR
  384.  
  385. ITEM "Neues Fenster" ""
  386.   NOP
  387.   ;
  388.  
  389. SUB "GROSSES FENSTER" "B"
  390.   NEWED "OBERON.CONFIG"
  391.   WINDOW 0 0 0 0
  392.   ;
  393.  
  394. SUB "kleines Fenster" "W"
  395.   NEWED "OBERON.CONFIG"
  396.   WINDOW 100 50 100 50
  397.   ;
  398.  
  399. ITEM "Iconify" "escape"
  400.   ICONIFY
  401.   ;
  402.  
  403. ITEM "WinArranger" "§"
  404.   WINARRANGER 1
  405.   ;
  406.  
  407. ITEM "WinManager" "$"
  408.   WINMANAGER
  409.   ;
  410.  
  411. ITEMBAR
  412.  
  413. ITEM "Über WRITE" "!"
  414.   ABOUT
  415.   ;
  416.  
  417. ITEMBAR
  418.  
  419. ITEM "Speichern & Verlassen" "E"
  420.   M_SAVE_QUIT
  421.   ;
  422.  
  423. ITEM "Ende" "Q"
  424.   M_QUIT
  425.   ;
  426.  
  427. MENU "Edieren"
  428.  
  429. ITEM "Undo" "ß"
  430.   UNDO 1
  431.   ;
  432.  
  433. ITEM "Undo..." ""
  434.   GETNUMBER "Wieviel Schritte\nrückgängig machen ?" 1
  435.   UNDO _RN
  436.   ;
  437.  
  438. ITEMBAR
  439.  
  440. ITEM "Setze Marke" "M"
  441.   SETTITLE "Marke gesetzt." 0
  442.   SETMARK
  443.   ;
  444.  
  445. ITEM "Lösche Marke" "U"
  446.   UNMARK
  447.   ;
  448.  
  449. ITEMBAR
  450.  
  451. ITEM "Ausschneiden" "X"
  452.   COPYBLOCK 0
  453.   DELETEBLOCK
  454.   ;
  455.  
  456. ITEM "Kopieren" "C"
  457.   COPYBLOCK 0
  458.   SETTITLE "Block kopiert." 0
  459.   ;
  460.  
  461. ITEM "Einfügen" "V"
  462.   INSERTBLOCK 0
  463.   ;
  464.  
  465. ITEM "Löschen" ""
  466.   DELETEBLOCK
  467.   ;
  468.  
  469. ITEMBAR
  470.  
  471. ITEM "Clipboard" ""
  472.   NOP
  473.   ;
  474.  
  475. SUB "Ausschneiden nach Clip" "alt x"
  476.   COPYBLOCK 0
  477.   BUFFERTOCLIP 0 0
  478.   DELETEBLOCK
  479.   ;
  480.  
  481. SUB "Nach Clip kopieren" "alt c"
  482.   COPYBLOCK 0
  483.   BUFFERTOCLIP 0 0
  484.   SETTITLE "Block kopiert." 0
  485.   ;
  486.  
  487. SUB "Einfügen aus Clip" "alt v"
  488.   CLIPTOBUFFER 0 0
  489.   INSERTBLOCK 0
  490.   ;
  491.  
  492. SUB "Buffer nach Clip" ""
  493.   BUFFERTOCLIP 0 0
  494.   ;
  495.  
  496. SUB "Clip nachBuffer" ""
  497.   CLIPTOBUFFER 0 0
  498.   ;
  499.  
  500. ITEMBAR
  501.  
  502. ITEM "Lösche Buffer" ""
  503.   CLEARBUFFER 0
  504.   SETTITLE "OK." 0
  505.   ;
  506.  
  507. ITEMBAR
  508.  
  509. ITEM "Block links" "<"
  510.   BLOCKLEFT 1
  511.   ;
  512.  
  513. ITEM "Block rechts" ">"
  514.   BLOCKRIGHT 1
  515.   ;
  516.  
  517. MENU "Internes"
  518.  
  519. ITEM "Parse Buffer..." ""
  520.   GETNUMBER "Parse Buffer :" 0
  521.   SETTITLE "PARSING..." 1
  522.   PARSEBUFFER _RN
  523.   FLASH
  524.   ;
  525.  
  526. ITEM "Parse Block" ""
  527.   COPYBLOCK 1
  528.   SETTITLE "PARSING..." 1
  529.   PARSEBUFFER 1
  530.   FLASH
  531.   ;
  532.  
  533. ITEM "Parse File..." ""
  534.   GETFILE "" ""
  535.   LOADBUFFER _PATH 1
  536.   SETTITLE "PARSING..." 1
  537.   PARSEBUFFER 1
  538.   FLASH
  539.   ;
  540.  
  541. ITEMBAR
  542.  
  543. ITEM "Führe Buffer aus..." ""
  544.   GETNUMBER "Führe Buffer aus :" 0
  545.   SETTITLE "EXECUTING..." 1
  546.   DOBUFFER _RN
  547.   FLASH
  548.   ;
  549.  
  550. ITEM "Führe Block aus" ""
  551.   COPYBLOCK 1
  552.   SETTITLE "EXECUTING..." 1
  553.   DOBUFFER 1
  554.   FLASH
  555.   ;
  556.  
  557. ITEM "Führe Komando aus..." "D"
  558.   GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  559.   DOSTRING _RS
  560.   ;
  561.  
  562. ITEM "Führe File aus..." ""
  563.   GETFILE "" ""
  564.   LOADBUFFER _PATH 1
  565.   SETTITLE "EXECUTING..." 1
  566.   DOBUFFER 1
  567.   FLASH
  568.   ;
  569.  
  570. ITEMBAR
  571.  
  572. ITEM "Nehme Makro auf" "1"
  573.   MACROREC 0
  574.   ;
  575.  
  576. ITEM "Stoppe  Aufnahme" "2"
  577.   MACROSTOP
  578.   ;
  579.  
  580. ITEM "Spiele ab" "3"
  581.   MACROPLAY 0 1
  582.   ;
  583.  
  584. ITEM "Spiele mehrmals ab..." "4"
  585.   GETNUMBER "Replay it n times " 1
  586.   MACROPLAY 0 _RN
  587.   ;
  588.  
  589. MENU "Externes"
  590.  
  591. ITEM "Neue Shell" "."
  592.   SYSTEM "NewShell"
  593.   ;
  594.  
  595. ITEM "DOS-Execute..." ""
  596.   GETSTRING "Geben sie ein CLI-Komando ein :" ""
  597.   SYSTEM _RS {@ASYNC}
  598.   ;
  599.  
  600. MENU "ARexx"
  601.  
  602. ITEM "Führe Rexx aus..." ""
  603.   GETFILE "REXX:" "#?.(rexx|wrx)"
  604.   DOREXX _RS "" {@ASYNC}
  605.   ;
  606.  
  607. ITEMBAR
  608.  
  609. MENU "Utlities"
  610.  
  611. ITEM "Schreibe Zeichen..." "alt space"
  612.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  613.   WRITECHAR _RN
  614.   ;
  615.  
  616. ITEM "Zeige Zeit & Datum" "T"
  617.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  618.   ;
  619.  
  620. ITEMBAR
  621.  
  622. ITEM "UPPER word" "^"
  623.   UPPERBLOCK @SOW @SOW @EOW @EOW
  624.   ;
  625.  
  626. ITEM "lower word" "#"
  627.   LOWERBLOCK @SOW @SOW @EOW @EOW
  628.   ;
  629.  
  630. ITEMBAR
  631.  
  632. ITEM "Match Bracket" "("
  633.   MATCHBRACKET
  634.   ;
  635.  
  636. MENU "Suchen"
  637.  
  638. ITEM "Zähle..." ""
  639.   GETFINDREPLACE _FINDSTRING ""
  640.   IF
  641.     COMPARE _MARKED HIGHER;
  642.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  643.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  644.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  645.   ;
  646.  
  647. ITEMBAR
  648.  
  649. ITEM "Finde..." "F"
  650.   GETFINDREPLACE _FINDSTRING ""
  651.   IF
  652.     COMPARE _MARKED HIGHER;
  653.     FIND @MARKA @MARKA @MARKB @MARKB ;
  654.     FIND @CURSOR @CURSOR @EOT @EOT ;
  655.   ;
  656.  
  657. ITEM "Finde noch einmal" "N"
  658.   IF
  659.     COMPARE _MARKED HIGHER;
  660.     FIND @CURSOR @CURSOR @MARKB @MARKB ;
  661.     FIND @CURSOR @CURSOR @EOT @EOT ;
  662.   ;
  663.  
  664. ITEMBAR
  665.  
  666. ITEM "Ersetze..." "Y"
  667.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  668.   IF
  669.     COMPARE _MARKED HIGHER;
  670.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  671.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  672.   ;
  673.  
  674. ITEM "Ersetze noch einmal" "Z"
  675.   IF
  676.     COMPARE _MARKED HIGHER;
  677.     REPLACE @CURSOR @CURSOR @MARKB @MARKB ;
  678.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  679.   ;
  680.  
  681. ITEM "Ersetze alle..." ""
  682.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  683.   IF
  684.     COMPARE _MARKED HIGHER;
  685.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  686.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  687.   FLASH
  688.   ;
  689.  
  690. ITEM "Ersetze alle schnell..." ""
  691.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  692.   SILENT
  693.   IF
  694.     COMPARE _MARKED HIGHER;
  695.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  696.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  697.   WINDOW 0 0 0 0
  698.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  699.   ;
  700.  
  701. ITEMBAR
  702.  
  703. ITEM "Suche nach Muster..." ""
  704.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  705.   SETVAR "_PatCase" _RS
  706.   FINDPATTERN @CURSOR @EOT {@CASE}
  707.   ;
  708.  
  709. ITEM "Suche noch einmal" ""
  710.   FINDPATTERN @CURSOR @EOT {@CASE}
  711.   ;
  712.  
  713. ITEM "Suche nach Muster (no Case)..." "Ö"
  714.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  715.   SETVAR "_PatNoCase" _RS
  716.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  717.   ;
  718.  
  719. ITEM "Suche noch einmal" "Ä"
  720.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  721.   ;
  722.  
  723. ITEMBAR
  724.  
  725. ITEM "Springe zu Zeile..." "G"
  726.   GETNUMBER "Springe zu Zeile :" _YPOS
  727.   GOTO _XPOS _RN
  728.   ;
  729.  
  730. ITEMBAR
  731.  
  732. ITEM "Zeige Index..." "J"
  733.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?PROCEDURE#?"
  734.   SHOWINDEX _RS {@CASE}
  735.   ;
  736.  
  737. MENU "Falten"
  738.  
  739. ITEM "Falte Block" "alt f"
  740.   FOLD @MARKA @MARKB
  741.   ;
  742.  
  743. ITEM "Entfalte Zeile" "alt u"
  744.   UNFOLD @CURSOR @CURSOR 1
  745.   ;
  746.  
  747. ITEM "Falte zurück" "alt shift f"
  748.   REFOLD
  749.   ;
  750.  
  751. ITEMBAR
  752.  
  753. ITEM "Entfalte alles..." ""
  754.   GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden ?" 1
  755.   UNFOLD @SOT @EOT _RN
  756.   ;
  757.  
  758. MENU "Prefs"
  759.  
  760. ITEM "Globale Prefs" ""
  761.   GPREFS
  762.   ;
  763.  
  764. ITEM "Prefs" "+"
  765.   PREFS
  766.   ;
  767.  
  768. ITEMBAR
  769.  
  770. ITEM "Zeige Konfiguration" ""
  771.   GETFILE _PATH "#?.config"
  772.   NEWED ""
  773.   WINDOW 0 0 0 0
  774.   OPEN _RS
  775.   ;
  776.  
  777. MENU "Hilfe"
  778.  
  779. ITEM "Help..." "Shift Help"
  780.   HELP
  781.   ;
  782.  
  783. ITEM "Zeige Variablen" ""
  784.   SHOWVARS
  785.   ;
  786.  
  787. ITEM "Zeige Funktionen" ""
  788.   SHOWFUNCTIONS
  789.   ;
  790.  
  791. ITEM "Zeige ASCII-Codes" ""
  792.   SHOWASCII
  793.   ;
  794.  
  795. ITEM "Hilfe zu Stichwort..." "?"
  796.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  797.   GUIDEHELP _RS
  798.   ;
  799.  
  800.